INTEGER(4),parameter :: Debug=1, VIsDouble=1, FileType=0
INTEGER(4),parameter :: ZoneType=0
INTEGER(4),parameter :: ICellMax=0, JCellMax=0, KCellMax=0
INTEGER(4) :: DIsDouble=1

!/*Ordered Zone Parameters*/!
REAL(8)    :: SolTime                  = 0.
INTEGER(4) :: StrandID                 = 0      !/* 0 = StaticZone */
INTEGER(4) :: ParentZn                 = 0
INTEGER(4) :: IsBlock                  = 1      !/* Block */
INTEGER(4) :: NFConns                  = 0
INTEGER(4) :: FNMode                   = 0
INTEGER(4) :: TotalNumFaceNodes        = 1
INTEGER(4) :: TotalNumBndryFaces       = 1
INTEGER(4) :: TotalNumBndryConnections = 1
INTEGER(4) :: ShrConn                  = 0

REAL(8),allocatable :: data(:,:,:,:),epsilon(:,:,:)
INTEGER(4),allocatable :: PassiveVarList(:),ValueLocation(:),ShareVarFromZone(:)
integer(4) :: i,j,k,IJKN,data_count
INTEGER(4) :: err=0

! Variables about I/O .dat
real(8),dimension(ny) :: yp
real(8) :: dx, dy, dz

integer :: nca,l,tempa,tempb
character(50):: nf,Title,Variables,FName
logical :: iscalar
real(8) :: r2